home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 1
/
MacMania 1.toast
/
Educational
/
Misc.
/
Dinosaurs
/
background_2611.txt
< prev
next >
Wrap
Text File
|
1987-11-26
|
3KB
|
139 lines
-- background: 2611 from stack: in
-- bmap block id: 3620
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openCard
hide card field "Info"
show card field "Title"
end openCard
on closeCard
hide card field "Info"
end closeCard
on mouseUp
if visible of card field "Info" is true then
hide card field "Info"
else
show card field "Info"
end if
end mouseUp
on doButton
Answer "Install Button in Home?" with "No" or "Yes"
if it is not "Yes" then exit doButton
choose button tool
get the rect of target
click at (item 1 of it),(item 2 of it)
doMenu Copy Button
put card field "Stage 2" into newScript
get the short name of target
go Home
doMenu Paste Button
set the script of card button it to newScript
put "Move the button where you want it, type Command-Tab, and click it"
end doButton
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=429 top=299 right=331 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect scroll left
go prev card
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=471 top=299 right=331 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect scroll right
go next card
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=9 top=298 right=330 bottom=41
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect iris open
go home
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=239 top=302 right=330 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect scroll left
show all cards
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=299 right=331 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 21449 / 21449
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect dissolve
go to card "Destination"
end mouseUp